10 REM ********************************
15 REM *   C-64   1541   STAR NL 10   *
20 REM *    MENUEKALKULATION V 1.6    *
25 REM *                              *
30 REM *  (C) 1987  BY CHARLY BRAUN   *
35 REM *        2400 LUEBECK 1        *
40 REM ********************************
45 IFW=0THENW=1:LOAD"([195])1987 [195]H.[194]RAUN",8,1
50 GOTO80
60 IFEI(S)=XORGP(S)=XORPE(S)=XTHENKB=Y:KA(S)=0:RETURN
65 RETURN
70 POKE214,Z:POKE211,A:SYS58732:RETURN
80 V=23:U=24:Q=30:QA=10:RU=0:TA=1:DA=0:CL=0:KG=0:W=0:MU$="":W$="":X=0:Y=1:R=18
90 POKE53272,V:POKE53280,X:POKE53281,X:POKE808,254:POKE657,128:A1=0:I=10:Z=0
95 J=100:K=1000:L=10000:G=20:H=.5:M=13:N=21:N1=0:A1$="":WW=0
100 DIM ZU$(Q),GP(Q),EI(Q),PE(Q),P(Q),PR(Q),AE(Q),MT(Q),KA(Q),EV(Q),MV(Q),WM(Q)
110 DIM WP(Q),WG(Q),U1(Q),BA$(QA),BA(QA)
120 SYS58692
130 POKE646,7:A=X:Z=X:GOSUB70:PRINT" [205] E N U E K A L C U L A T I O N  [214] 1.6 "
135 A=X:Z=17:GOSUB70:PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
140 IFMU$<>""THEN A=19-(LEN(MU$)/2):Z=3:GOSUB70:PRINT" ";MU$;" "
145 IFDA=1THEN152
150 A=Y:Z=5:GOSUB70:PRINT"1 [197]INGABE":GOTO200
152 A=V:Z=R:GOSUB70:PRINT"F2 [196]RUCKERAUSGABE"
154 Z=G:GOSUB70:PRINT"F4 [197]INGABE NEU"
156 A=V:Z=22:GOSUB70:PRINT"F6 [206]AME AENDERN"
160 A=Y:Z=5:GOSUB70:PRINT"1 [193]USGABE / AENDERN / ERWEITERN
170 Z[178]7:[141]70:[153]"2 (null)EBERBLICK"
180 Z[178]9:[141]70:[153]"3 PEEKESONDERE ATNUSGABEN
190 A=Y:Z=11:GOSUB70:PRINT"4 SPEICHERN
200 A[178]Y:Z[178]M:[141]70:[153]"5 LADEN "
210 A[178]X:Z[178]22:[141]70:[153]"F5 (null)EILNEHMER OPEN"TA"CMDSYS   "
220 A[178]X:Z[178]G:[141]70:[153]"F3 (null)UNDUNG":[139]RU[178]X[167]A[178]M:[141]70:[153]" AUS "
230 [139]RU[178]Y[167]A[178]M:[141]70:[153]" EIN "
240 A[178]X:Z[178]R:[141]70:[153]"F1 RIGHT$NHALT STR$ISKETTE"
260 A[178]Y:Z[178]15:[141]70:[153]"0 BEENDEN
280 Z=U:GOSUB480:SYS65499
290 A=I:Z=U:GOSUB70:PRINT"    < [212]ASTE >";:FORW=XTO160:NEXT
293 A=I:Z=U:GOSUB70:PRINT"    < [212]ASTE [146]>";:FORW=XTO120:NEXT
296 A=I:Z=U:GOSUB70:PRINT"    <[146] [212]ASTE >[146]";:FORW=XTO120:NEXT
298 IFPEEK(646)>XANDTI$>"000130"THENSYS65499:GOSUB450
300 GETW$:IFW$=""THEN290
305 SYS65499:IFPEEK(646)=XTHEN120
310 IFW$=" "THENGOSUB450:GOTO300
320 IFW$="[133]"GOTO570
330 IFW$="[134]"THENZ=U:GOSUB480:GOTO590
340 IFW$="[135]"GOTO490
350 IFW$="[137]"GOTO5000
360 IFW$="[138]"THENZ=U:GOSUB480:GOTO610
370 IFW$="[139]"THENZ=U:GOSUB480:GOTO420
375 IFW$="[146]"THENPOKE808,237
380 IFW$<"0"ORW$>"5"GOTO470
390 W=VAL(W$):IFW=0THENZ=U:GOSUB480:GOTO510
400 ONWGOTO1000,700,1500,1700,1900
410 GOTO300
420 IFMU$=""THEN470
430 A=X:Z=V:GOSUB70:PRINT"[159][206]EUER [205]ENUENAME   ";MU$;:A=16:GOSUB70:INPUTMU$
440 Z=3:GOSUB480:Z=V:GOSUB480:GOTO130
450 POKE646,X:SYS58692:RETURN
470 A=I:Z=U:GOSUB70:PRINT"[198]EHLBEDIENUNG[158]";:FORW=0TO1E3:NEXT:GOTO280
480 POKE781,Z:SYS59903:RETURN
490 Z=U:GOSUB480:A=G:Z=22:GOSUB70:PRINT"                    ";
495 A=13:Z=22:GOSUB70:INPUTTA
496 IFTA>32500THENA=M:Z=24:GOSUB70:PRINT"ZU GROSS";:FORW=XTOK:NEXT:GOSUB480:GOTO495
497 TA%=TA:TA=TA%:IFTA<1THENTA=Y
500 GOTO145
510 A=I:Z=U:GOSUB70:PRINT"BEENDEN[146] WIRKLICH ?";:FORW=1TO50:NEXT
520 A=I:Z=U:GOSUB70:PRINT"BEENDEN WIRKLICH[146] ?";:FORW=1TO50:NEXT
530 GETW$:IFW$=""GOTO510
540 IFW$="J"ORW$="W"ORW$="B"THENSYS58253:END
550 IFW$="N"GOTO210
560 GOTO530
570 SYS49152:GOTO120
580 IFPEEK(646)=XTHENRETURN
581 A=X:Z=U:GOSUB70:PRINT"[151]A[146][155]=AENDERN - [151]E[146][155]=ENDE - [151][195]URSOR[146][155]=BLAETTERN[158]";
582 FORW=XTO50:NEXT
585 A=X:Z=U:GOSUB70:PRINT"[155]A=AENDERN - E=ENDE - [195]URSOR=BLAETTERN[158]";
587 FORW=XTO50:NEXT:RETURN
590 IFRU=XTHENRU=Y:A=M:Z=G:GOSUB70:PRINT" EIN [146]":GOTO280
600 IFRU=YTHENRU=X:A=M:Z=G:GOSUB70:PRINT" AUS [146]":GOTO280
610 IFMU$<>""THENA=X:Z=U:GOSUB70:PRINT"[211]PEICHER LOESCHEN  J/N [158]";:GOTO630
620 GOTO470
630 GETW$:IFW$=""THEN630
640 IFW$="J"THENGOSUB670:CL=0:FORZ=22TO2STEP-1:GOSUB480:NEXT:GOTO130
650 IFW$="N"THEN280
660 GOTO630
670 A=X:Z=U:GOSUB70:PRINT"    [201]CH LOESCHE [196]IR DEN [211]PEICHER";
680 FORS=YTOQ:ZU$(S)="":GP(S)=X:EI(S)=X:PE(S)=X:P(S)=X:KA(S)=X:EV(S)=X:NEXT
690 FORS=YTOQA:BA$(S)="":BA(S)=X:NEXT:MU$="":AB=X:DA=X:RU=X:TA=Y:RETURN
700 IFMU$=""GOTO470
720 SYS58692:KB=X:W=X:OB=X
730 PRINTTAB(I)"[150]";MU$:S1=X:S2=X:S3=X
740 PRINTTAB(20)"[199]EW.          [196][205][158]"
750 FORS=YTOQ:IFGP(S)=XANDEI(S)=XANDPE(S)=XTHENNEXT:GOTO890
760 GOSUB60:IFKB=YTHENOB=Y:KB=X:GOTO990
790 GOSUB3200:GOSUB3100
850 A=X:Z=W+Y:GOSUB70:PRINTZU$(S);:A=R:GOSUB70
860 A1=GP(S):GOSUB2100:PRINTA1$;A1,
870 A1=P(S) :GOSUB2100:PRINTA1$;A1:S1=S1+P(S)
880 NEXT
890 FORS=YTOQA:IFBA(S)=XTHENNEXT:GOTO910
895 GOSUB3100
900 A=X:Z=W+Y:GOSUB70:PRINT"[159]";BA$(S);TAB(30);:GOSUB2100
905 A1=BA(S):GOSUB2100:PRINTA1$;A1:S3=S3+BA(S):NEXT
910 IFOB=-1THEN960
920 A=X:Z=V:GOSUB70:PRINT"[158]PRO [208]ERSON"S1"[196][205] [159] [194]ES. [193]USG."S3;
930 KG=X:FORW=YTOQ:KG=KG+(AE(W)*PE(W)):NEXT:KG=INT(KG*J+H)/J
940 A=X:Z=U:GOSUB70:PRINT"[153]"TA"X CA."KG"[196][205]";
950 KT=KG/TA:KT=INT(KT*J+H)/J
955 IFKT>S1THEN:A=30:Z=U:GOSUB70:PRINT ""KT"[158]";
956 IFKT<S1THEN:A=30:Z=U:GOSUB70:PRINT "[150]"KT"[158]";
960 GETW$:IFW$=""THEN960
970 IFW$=" "THENS=Y:GOTO120
980 GOTO960
990 PRINTZU$(S)"[155]  [194]ERECHNUNG UNMOEGLICH[158]":KB=0:W=W+1:GOTO880
1000 SYS58692:IFMU$<>""THEN1030
1010 A=X:Z=12:GOSUB70:INPUT"[206]AME DER [218]UBEREITUNG";MU$:IFMU$=""THEN1010
1030 SYS58692:WW=S:IFDA=XORS>QTHENS=Y:WW=Y
1040 POKE646,Y:A=G-(LEN(MU$)/2):Z=X:GOSUB70:PRINT" "MU$
1050 A=7:Z=3:GOSUB70:PRINT"[197]SSEN [212]EILNEHMER "TA"[208]ERS.[158]"
1060 A=X:Z=5:GOSUB70:PRINT"[158]"S"[157]. [218]UTAT "TAB(22)ZU$(S);"                   "
1070 A=X:Z=7:GOSUB70:PRINT"[199]RAMM PRO [208]ERSON     "GP(S);"[157]                     "
1080 A=X:Z=9:GOSUB70:PRINT"[199]EWICHT PRO [197]INHEIT  "EI(S)"[157]                      "
1090 Z=11:GOSUB70:PRINT"[208]REIS PRO [197]INHEIT    "PE(S)"[157]                     "
1100 Z=M:GOSUB70:PRINT"[150][214]ORHANDENE           "EV(S)"[157]                    "
1110 Z=15:GOSUB70:PRINT"[155][194]ENOETIGTE [205]ENGE                        "
1120 Z=17:GOSUB70:PRINT"[155][193]USGABEEINHEITEN                        "
1130 Z=G:GOSUB70:PRINT"[153][208]REIS PRO [208]ERSON                        "
1140 IFTA>YTHENA=X:Z=22:GOSUB70:PRINT"[153][203]OSTEN PRO [193]USGABE                     "
1150 GOSUB60:IFKB=YTHENA=21:Z=G:GOSUB70:PRINT"[198]EHLENDE [196]ATEN":KB=X:GOTO1300
1160 GOSUB3200
1170 IFP(S)=XTHEN1380
1180 IFRU=1THENA=30:Z=7:GOSUB70:PRINT"[154]";WM(S)
1190 A=N:Z=G:GOSUB70:PRINT"[153]"P(S)"[157]                  ";
1195 IFRU=1THENA=30:Z=G:GOSUB70:PRINT"[154]"WP(S)"[157]                  ";
1200 A=N:Z=15:GOSUB70:PRINT"[155]"MV(S)"[157]                   "
1205 IFRU=YTHENA=30:GOSUB70:PRINT"[154]"WG(S)"[157]                   "
1210 IFEV(S)>XTHENA=30:Z=13:GOSUB70:PRINT"[150]" MT(S)"[157]                       ";
1220 N1=N:IFRU=YTHENN1=30
1230 A=N1:Z=17:GOSUB70:PRINT"[155]"AE(S)"[157]          "
1240 KG=X:FORWW=YTOQ
1250 KG=KG+KA(WW):NEXT:PO=KG/TA
1260 KG=INT(KG*J+H)/J:A=4:Z=2:GOSUB70:PRINT"[154]"KG"[157] [196][205]   "
1270 PO=INT(PO*J+H)/J
1280 A=20:Z=2:GOSUB70:PRINT"[208]ORT."PO"[157] [196][205]    ";
1290 N1=N:IFRU=YTHENN1=30
1295 IFTA>YTHENA=N1:Z=22:GOSUB70:PRINT"[153]"KA(S)"[157]         "
1300 IFDA=YGOTO1380
1310 Z=U:GOSUB480
1315 ZU$(S)="":A=G:Z=5:GOSUB70:INPUT"[158]";ZU$(S):GOSUB1370
1320 GP(S)=0:Z=7:GOSUB70:INPUTGP(S):GOSUB1370
1325 EI(S)=0:Z=9:GOSUB70:INPUTEI(S):GOSUB1370
1330 PE(S)=0:Z=11:GOSUB70:INPUTPE(S):GOSUB1370
1335 Z=M:GOSUB70:INPUT"[150]";EV(S):GOSUB1370
1340 IFGP(S)=0THENMV(S)=0:Z=15:GOSUB70:INPUT"[155]";MV(S):GOSUB1370:GP(S)=MV(S)/TA
1350 IFMV(S)=0ANDGP(S)=0THENZ=17:GOSUB70:INPUTAE(S):GOSUB1370:GP(S)=AE(S)*EI(S)/TA
1360 GP(S)=INT(GP(S)*K+H)/K:DA=Y:CL=Y:GOTO1060
1370 A=G:GOSUB70:PRINT" ":RETURN
1380 SYS65499:GOTO1390
1382 GOSUB580
1385 IFPEEK(646)>XANDTI$>"000130"THENSYS65499:GOSUB450
1390 GETW$:IFW$=""THEN1382
1392 SYS65499:IFPEEK(646)=XTHEN1030
1393 IFW$=" "THENGOSUB450:GOTO1390
1395 IFW$=CHR$(29)THENS=S+Y:GOTO1440
1400 IFW$=CHR$(17)THENS=S-Y:GOTO1440
1410 IFW$="A"THENGOSUB1470:GOTO1310
1420 IFW$="E"GOTO120
1430 GOTO1390
1440 IFS<YTHENS=Q
1450 IFS>QTHENS=Y
1460 GOTO1060
1470 Z=7:GOSUB70:PRINT"[199]RAMM PRO [208]ERSON     "GP(S);"[157]                     "
1475 A=30:Z=13:GOSUB70:PRINT"               ";
1480 A=30:Z=15:GOSUB70:PRINT"               ";
1485 A=30:Z=17:GOSUB70:PRINT"               ";
1490 RETURN
1500 IFMU$=""GOTO470
1510 S=Y:SYS58692
1515 A=I:Z=X:GOSUB70:PRINT"[194]ESONDERE [193]USGABEN
1520 A[178]19[171]([195](MU$)[173]2):Z[178]3:[141]70:[153]" ";MU$;" "
1530 A[178]X:Z[178]5:[141]70:[153]S"CMD. ATNUSGABE   "
1540 Z[178]7:[141]70:[153]"(null)UMME
1550 A=G:Z=5:GOSUB70:PRINTBA$(S);"                    "
1560 Z=7:GOSUB70:PRINTBA(S)"[157]        "
1570 GETW$:IFW$=""THENGOSUB580
1580 IFW$=CHR$(17)THENS=S-Y:GOTO1670
1590 IFW$=CHR$(29)THENS=S+Y:GOTO1670
1600 IFW$="A"GOTO1625
1610 IFW$="E"THENS=Y:GOTO120
1620 GOTO1570
1625 Z=24:GOSUB480
1630 BA$(S)="":A=R:Z=5:GOSUB70:INPUTBA$(S)
1640 GOSUB70:PRINT" "
1650 BA(S)=0:A=R:Z=7:GOSUB70:INPUTBA(S)
1655 GOSUB70:PRINT" "
1660 GOTO1530
1670 IFS<YTHENS=QA
1680 IFS>QATHENS=Y
1690 GOTO1530
1700 IFZU$(1)=""GOTO470
1705 A=3:Z=11:GOSUB70:PRINT"SPEICHERN
1710 Z[178]U:[141]70:[153]"WIRKLICH SPEICHERN J/N";:[161]W$:[139]W$[178]""[167]1710
1715 [139]W$[178]"J"[167]Z[178]U:[141]480:[137]1720
1717 [139]W$[178]"N"[137]190
1719 [137]1710
1720 II[178][198](MU$):II[178]II[171]128:[139]II[179]65[167]II[178]II[170]128
1725 II$[178][199](II)[170][202](MU$,2,15)
1730 Z[178]U:[141]70:[153]"SPEICHERE "II$;
1740 [159]1,8,15,"S:"[170]II$
1750 [160]1:[159]1,8,2,II$[170]",S,W
1760 PRINT#1,MU$
1770 PRINT#1,TA
1780 PRINT#1,RU
1790 FORS=1TOQ:IFZU$(S)=""THENZU$=CHR$(32)
1800 PRINT#1,ZU$(S)
1810 PRINT#1,GP(S)
1820 PRINT#1,EI(S)
1830 PRINT#1,PE(S)
1835 PRINT#1,EV(S):NEXT
1840 FORS=YTOQA:IFBA$(S)=""THENBA$(S)=CHR$(32)
1850 PRINT#1,BA$(S)
1860 PRINT#1,BA(S)
1865 NEXT:S=Y
1870 CLOSE1:GOTO130
1900 A=3:Z=M:GOSUB70:PRINT"[158]LADEN":Z=U:GOSUB480
1905 MV$="":A=Y:Z=V:GOSUB70:INPUT"[215]ELCHE [211]PEISE BITTE";MV$
1910 IFMV$=""THENZ=V:GOSUB480:GOTO130
1920 GOSUB480
1930 OPEN1,8,2,MV$+"*,S,R
1940 [159]8,8,15:[132]8,B,B$,C,D:[139]B[178]0[167]1960
1950 A[178]X:Z[178]U:[141]70:[153]B" "B$" "C" "D;:[129]W[178]0[164]2E3:[130]:[160]8:[160]1:[137]130
1960 [139]DA[178]1[167][141]670
1970 [141]480
1980 [132]1,MU$
1985 Z[178]3:[141]480:A[178]19[171]([195](MU$)[173]2):[141]70:[153]" ";MU$;" "
1990 [132]1,TA
1995 [132]1,RU
2000 [129]S[178]1[164]Q
2010 [132]1,ZU$(S)
2020 [132]1,GP(S)
2030 [132]1,EI(S)
2040 [132]1,PE(S)
2045 [132]1,EV(S)
2050 [130]:A[178]19[171]([195](MU$)[173]2):Z[178]3:[141]70:[153]"PRINT ";MU$;" "
2060 [129]S[178]1[164]QA
2070 [132]1,BA$(S):[139]BA$[178]""[167]BA$[178]" "
2080 [132]1,BA(S)
2085 [130]
2090 DA[178]Y:S[178]Y:[160]8:[160]1:[137]130
2100 [139]A1[179]Y[167]A1$[178]"   ":[142]
2110 [139]A1[179]I[167]A1$[178]"  ":[142]
2120 [139]A1[179]J[167]A1$[178]" ":[142]
2130 [139]A1[179]K[167]A1$[178]"":[142]
2150 [142]
2180 [139]GP(S)[179]K[137]2930
2200 [139]A1[179][171]Y[167][152]4,"";:[142]
2210 [139]A1[179]Y[167][152]4,"     ";:[142]
2220 [139]A1[179]I[167][152]4,"    ";:[142]
2230 [139]A1[179]J[167][152]4,"   ";:[142]
2240 [139]A1[179]K[167][152]4,"  ";:[142]
2250 [139]A1[179]L[167][152]4," ";:[142]
2260 [139]A1[179]100000[167][152]4,"";:[142]
2270 [142]
3100 W[178]W[170]Y:[139]W[177]N[167]A[178]5:Z[178]U:[141]70:[153]"PEEKITTE < (null)(null)ATNLENVAL >  DRUECKEN"
3110 [139]W[177]N[167][151]198,X:[146]198,Y:W[178][171]1:[151]198,X:[158]58692:[142]
3120 [139]OB[178]Y[167]A[178]5:Z[178]U:[141]70:[153]"PEEKITTE < (null)(null)ATNLENVAL >  DRUECKEN":OB[178][171]1
3150 [142]
3200 P(S)[178]PE(S)[173]EI(S)[172]GP(S):[139]RU[178]Y[167]P(S)[178][181]((P(S))[172]J[170]H)[173]J
3210 [139]RU[178]X[167]P(S)[178][181]((P(S))[172]J[170]H)[173]J:[139]P(S)[179].01[167]P(S)[178].01
3220 MV(S)[178]GP(S)[172]TA:MV(S)[178][181](MV(S)[172]I[170]H)[173]I:MT(S)[178]MV(S)[171]EV(S)
3230 AE(S)[178]MT(S)[173]EI(S):[139]RU[178]Y[167]AE(S)[178][181](AE(S)[170]H)
3235 [139]RU[178]Y[175]AE(S)[179]Y[175]EV(S)[178]X[167]AE(S)[178]Y
3237 [139]AE(S)[179]X[167]AE(S)[178]X
3240 AE(S)[178][181](AE(S)[172]I[170]H)[173]I:KA(S)[178]AE(S)[172]PE(S):          KA(S)[178][181](KA(S)[172]J[170].55)[173]J
3250 WM(S)[178]AE(S)[173]TA[172]EI(S):WP(S)[178]PE(S)[173]EI(S)[172]WM(S)
3255 WP(S)[178][181](WP(S)[172]J[170]H)[173]J
3260 [139]RU[178]Y[167]WM(S)[178][181](WM(S)[172]J[170]H)[173]J
3270 WG(S)[178]EI(S)[172]AE(S)
3280 GP(S)[178][181](GP(S)[172]K[170]H)[173]K
3290 [142]
5000 [139]MU$[178]""[167]Z[178]R:[141]480:[137]470
5010 A[178]26:Z[178]R:[141]70:[153]"SYSSTR$RUCKERAUSGABE":AB[178]X:OB[178]X:S3[178]X
5020 Z[178]24:[141]480:A[178]7:[141]70:[153]"RIGHT$CH DRUCKE DEINE STR$ATEN!"
5060 [159]1,4:[152]1,[199](27);[199](93);[199](48);[199](27);[199](33);[199](1);
5070 [160]1:[159]4,4,7:SU[178]0:S3[178]0
5080 [129]S[178]1[164]Q:[139]GP(S)[178]0[175]EI(S)[178]0[175]PE(S)[178]0[167]:[130]:[137]5120
5090 [141]60:[139]KB[178]1[167]:[130]:[137]5120
5100 [141]3200
5110 SU[178]SU[170]P(S):[130]
5120 [152]4,[199](27);[199](104);[199](2);[163]2);MU$;[199](27);[199](104);[199](0)
5130 [139]KB[178]1[167][152]4,"CHR$ESAMTPREIS NOCH NICHT ERRECHENBAR":[137]5150
5140 [152]4,[163]10)"CHR$ESAMTPREIS CA."SU "STR$(null)";
5150 [139]TA[177]1[167][152]4,"         (null)EILNEHMER "TA
5160 [152]4:KB[178]0
5165 [152]4,[199](27);[199](33);[199](4);[163]5);
5170 [152]4,"PEEKEZEICHNUNG           CHR$EW.        (null)ORT.      CHR$EBINDE        (null)REI";
5180 [152]4,"S JE CHR$EBINDE      (null)ENGE          ATNUSGABE       CHR$ESAMTPREIS IN STR$(null)"
5190 [129]S[178]1[164]134:[152]4,"TAN";:[130]:[152]4," "
5200 [129]S[178]1[164]Q:[139]GP(S)[178]0[175]EI(S)[178]0[175]PE(S)[178]0[167]:[130]:[137]5460
5210 [141]60:[139]KB[178]1[137]5340
5240 [141]3200
5300 AB[178]AB[170]KA(S)
5310 [152]4,[199](27);[199](93);[199](49);
5320 [152]4,[199](27);[199](68);[199](23);[199](35);[199](39);[199](49);[199](65);
5330 [152]4,[199](86);[199](99);[199](120);[199](0);
5340 [152]4,[163]5);ZU$(S);[199](9);:A1[178]GP(S):[141]2200
5350 [139]KB[178]1[167][152]4,"PEEKERECHNUNG NOCH NICHT MOEGLICH":KB[178]0:OB[178]1:[130]:[137]5460
5360 [152]4,GP(S);[199](9);:A1[178]P(S):[141]2200
5370 [152]4,P(S);[199](9);:A1[178]EI(S):[141]2200
5380 [152]4,EI(S);[199](9);:A1[178]PE(S):[141]2200
5400 [152]4,PE(S);:[139]TA[179]2[167][152]4,"":[130]
5410 [152]4,[199](9);:A1[178]MT(S):[141]2200
5420 [152]4,MT(S);[199](9);:A1[178]AE(S):[141]2200
5430 [152]4,AE(S);[199](9);:A1[178]KA(S):[141]2200
5440 [152]4,KA(S)
5450 [130]
5460 [139]OB[178]1[176]TA[179]2[167]5500
5470 [152]4,[163]120)"TANTANTANTANTANTANTANTANTANTANTANTANTAN":A1[178]AB:[141]2200
5480 [152]4,[163]120)AB
5490 [152]4,[163]120)"============="
5500 [152]4:[152]4
5510 [129]S[178]1[164]QA:[139]BA(S)[178]0[167][130]:[137]5530
5520 [152]4,[163]I);BA$(S);[163]50[171][195](BA$(S)));BA(S) :S3[178]S3[170]BA(S):[130]
5530 [139]S3[177]0[167][152]4,[163]50);S3"STR$(null)"[163]40)S3[170]AB" STR$(null) VALNDSUMME
5540 AS=(AB+S3)/TA:AS=INT(AS*J+H)/J
5544 PRINT#4,CHR$(27);CHR$(33);CHR$(10);CHR$(27)CHR$(93);CHR$(48);
5545 PRINT#4,TAB(I)"[208]REIS PRO [208]ERSON "AS"[196][205]
5550 [152]4:[152]4
5560 [160]4:S[178]1:[151]198,0:[137]152